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Smalltalk 


Mitglieder 


Durch einen "Nachzügler" und drei Neu- 
eintritte erhöht sich die Mitglieder- 
zan) auf 101 User (Hurra, die magische 
Grenze ist wieder gepackt!), 


Hier die Anschriften: 


Peter Lasker, Clematisstraat 50 
N1-7741 SM Coevorden 


Friedrch D. Mehedinti, Bursstraße 51, 
6750 Kaiserslautern 


Dierk Reuter, Hermann-Kauffmann-Str.13 
2000 Hamburg 60 


Walter Sperl, Uferstraße 308, 
A-2625 Schwarzau/Stfd. 


Herzlich willkommen im SPC! 


Tnema Hobbit 


Zum russischen Spectrum-Clone gibt es 
zur Zeit nichts Neues zu sagen. Wenn 
wir aber Neues erfahren sollten, 
teilen wir es euch mit. 


Cliubtrerrenmn 


Immer wieder werden wir auf das Thema 
Clubtreffen angesprochen. Auch wir 
finden, daß es wieder einmsl an der 
Zeit wäre,ein Treffen zu organisieren. 
Zur Zeit 1äß8t sich noch nicht genau 
sagen, wann es stattfinden kann. 
Geplant ist aber eins im Herbst nach 
der Ferienzeit. Ein Problem stellt zur 
Zeit auch noch die Räumlichkeit dar. 
Wir brauchen zumindest mehrere Strom- 
anschlüsse, Möglicherweise legen wir 
das Clubtreffen wie damals wieder auf 
einen Computer-Flonmarkttas im alten 
Wartesaal des Kölner Hauptbahnhof, 
der auch verkehrsmäßio am sünstigsten 
zu erreichen ist. 

Was haltet ihr davon? Wer wäre dabei? 
Eventuel] müßtet ihr aber einen 
kleinen finanziellen Beitrag dazu 
leisten, 


Pokes 


Crosswize = 51617,0 (Leben) 

Shark = 49933,0 (unendlich Schild) 

Ghostbusters II: 

1, Level 49494,0 (unendlich Laser) 
49624,0 (Laserschranke) 
49172,0 (unend] ‚Schutzschi1d) 
51754,0 (Aliens sterben) 

2, Level 55877,0 (unendlich Schleim) 

3, Level 53878,0 (unendlich Zeit) 

Dirk Mayer, Köln 


SoftwareproJekt 


Ich habe vor, das Programm Kinos Quest 
ı auf dem Spectrum zu realisieren. Die 
Szenen sollen von der Opus nachgeladen 
werden. Es werden Leute mit Zeit, Opus 
und Assemblererfahrung gesucht, Vor 
allem die Grafiksteuerung möchte ich 
vollständig abgeben. Bei Interesse 
bitte melden bei: D.Hucke, Korbacher 
Str.241, 3500 Kassel (nur schriftlich) 


ProJekt Orprus/Beta 


Der Fehler in der Umrechnung der Sek- 
toren bei der Opus ist lokalisiert. 
Schuld an dem Rechenfehler ist der MC- 
Sektor der Opus, Man kann im Kanalein- 
trag der Opus die "geheimen Sektoren" 
angeben. Normal eins, Wird dieser Wert 
auf null gesetzt, wird die Track-/Sek- 
torberechnung korrekt durchgeführt. 
Dieter Hucke 


Pro3J3. Opus/bDisciple 


Danke an Rudolf Pirsch für die Zusen- 
dung der Disciple-Disk. Lesen kann ich 
sie bereits, ich brauche aber Angaben 
über den Katalogtrack der Disciple. 
Kann ein Clubmitglied hier im Info ma) 
eine Serie darüber bringen? D,Hucke 


P.S.: Grüße nach Ostdeutschland! Ich 
hoffe, daß ihr mittlerweile doch end- 
ich das Info 1/91 erhalten habt, der 
Poststreik ist Ja Jetzt vorbei. WH. 


——————————— 
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Ich habe viele Disketten, die häufig benutzt werden und es ist nicht ungewöhn- 


lich, daß ich 60 oder 70 Files darauf habe. Natürlich sind die Files 
en Reihenfolge, und so ist es manchmal nicht 
"Reorg" 


läßt 


ist ein kleines, 
dem User die Wahl, 


in Basic geschriebenes Programm, 
Ausdruck des Directories auf einem Drucker erlaubt. Doch nicht nur das. 
welches Programm als erstes, als zweites usw, 


in keiner 
etwas zu finden. 
welches einen 

"Reorg" 
auf der 


leicht, 


Diskette gezeigt werden sollte. Alle Programme, die nicht gewählt werden, werden 
einfach an das Ende des Directories angehängt. 


Ich hoffe, daß dieses Programm euch hilft, 
Diskettensammlung zu bringen. 
* REORG * 
10 REM SAM COUPE DIRECTORY REORG 
20 REM (c) 1990 Spencer 
30 REM 
1000 DIM D (80),F (80) 
1010 head 
1020 clarr 
1030 insdk 
1040 PRINT #0; AT 1,0; 


"Directory to 
Printer (y or n) ?"; GET a$ 


IF a$="y" OR a$="Y" THEN OPEN #2; 
.n” 

DIR 1 

OPEN #2;”s" 

FOR a=1 TO 80 

PRINT AT 17,0; INVERSE 1;" Di 
rectrory Position ";a;" ? A 
INPUT "File Nr, (O=end, $=restart) 


?"; LINE a$ 
IF a$="$" THEN GOTO 1000 
IF a$(1)<"0" OR a$(1)>"9" THEN BE 
EP ‚1,5: GOTO 1100 
LET file=VAL (a$) 
IF file=0 THEN GOTO 1190 
IF file<O OR file>80 THEN BEEP ‚1 
‚5: GOTO 1100 
LET D(a)=file 
LET F(file)=0 
NEXT a 
PRINT AT 17,0; INVERSE 1; " 
READING HEADERS 
FOR b=1 TO 80 
IF F(b)<>O 
LET D(a)=F (b) ‚a=a+1 
ND IF 


NEXT b 

readhead 

PRINT AT 17,0; INVERSE 13" 
REORGANIZING 


0 FOR a=1 TO 80 


LET file=D(a) 
IF a=(INT (a/2)*2) 
POKE 50256, ,MEM$ (99744+ (fi 1e*2 
56) TO 99743+((file+1)*256)) 


Ian D. Spencer, Fichtenweg 10c, 5203 Much, Tel. 


ein bißchen Ordnung in eure 


WRITE AT 1, (INT ((8-1)/20)), (a/ 
2-1) MOD 10+1,50000 


MN 1360 
LSE 


EBOKE 50000 ,MEM$ (99744+ (file*2 
56) TO 99743+( (fi le+1) #256) ) 
END IF 

NEXT a 

PRINT AT 17,0; INVERSE 1;" 

REORG. FINISHED ® 

PAUSE 200 

DIR 1 

STOP 

DEF PROC head 

CLS 


PRINT AT 0,7;" DISK REORGANIZER"; 

AT 1,8;"(c) 1990 Spencer" 

END PROC 

DEF PROC clarr 

FOR a=1 TO 80 

LT F(a)=a 

NEXT a 

END PROC 

DEF PROC insdk 

PRINT AT 17,0; Inverse 1;" 

INSERT SAM DISKETTE ":AT 18,0; 
Press any key r 

BEEP ‚1,10 

US 


PAUSE 
PRINT AT 17,05" 


END PROC 
DEF PROC readhead 
LET adri=100000 

FOR track=O TO 3 

FOR sect=1 TO 10 

READ AT 1,track, sect ‚50000 
POKE adr? ,MEM$ (50000 TO 50511) 
LET adri=adri+512 

NEXT sect 

NEXT track 
END PROC 
CLEAR 


SAVE OVER "REORG" LINE 10 


02245/1657 
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Die Opus Discovery 
DPUS | Teil 8 


Nach einem Monat Pause wollen wir uns heute damit beschäftigen wie man mit der 
Opus in Assembler LOADen und SAVEn kann. Dazu benötigen wir aus den 
Sprunstabellen die Funktionen OPENCH, CLOSCH und SAVECH, die ich zuerst einmal 
erklären möchte bevor ich ein Beispielprogramm in Assembler vorstellen möchte. 


Dabei möchte ich mich auch ganz herzlich bei Dieter Hucke bedanken, der mir sehr 
B Fre Problem geholfen hat, ein funktionsfähiges Assemblerprosremm Zu 
schreiben. 


So, nun aber zu den drei Funktionen: 
OPENCH: 


Mit dieser Funktion werden auf der Opus Schreib- und Lesekanäle gseöffnet. Die 
öffnung eines solchen Kanales ist erst einmal die Voraussetzung, daß die Opus 
Programme von der Diskette laden oder speichern kann. Dabei müssen Jedoch erst 
einmal einige Daten in bestimmte Adressen schreiben. 
Als erstes wäre dort ein Parameterblock, der genauso aussieht wie der bei der 
CALUTL-Routine (RU 12/90). Der Dateiname ist dabei der Name des Programms, das 
wir speichern oder laden wollen. Mit Hilfe von RST 48 im Speccy-Rom schaffen wir 
uns dann einen Platz im Workspace, Dabei steht in BC die Länge unseres 
Parameterblocks und als Ergebnis der Routine erhalten wir die Anfanosadresse 
unseres Workspaces, In HL kommt dann die Anfangsadresse von unserem 
Parameterblock und danach wird der Block mit dem Blockbefenhi LDIR in den 
Workspace kopiert (im letzten Teil meiner Serie war hier ein kleiner Fehler: ich 
habe dort geschrieben, daß DE mit der Anfangsadresse des Parameterblocks geladen 
wird). Dann müssen Adresse (DE) und Länge (BC) des Parameterblocks auf den 
Kalkulatorstapel gebracht werden (mit CALL 10934 (2AB6h) im Speccy-Rom), Dann 
kommt die Länge des Kanals (nicht identisch mit der Länge des Prosramms, das wir 
speichern wollen!) in BC und mit Hilfe von CALL 11563 (2D2Bh) auch auf diesen 
Stapel. Da uns diese Länge nicht bekannt ist laden wir ganz einfach eine 0 nach 
BC. Nachdem wir BC (also die 0) auf den Stapel gelegt haben, schreiben wir diese 
Länge noch nach HL, Als letztes müssen in A bestimmte Bits gesetzt werden, die 
folgende Bedeutung haben: 

Bit O0: Ausgabe über den Kanal 

Bit 1: Eingabe über den Kanal 

Bit 2: Anlegen eines Kanals 


Bit O0 hat für LOAD und SAVE keine Bedeutung, Bits bis 7 sollten 
zurückgesetzt sein. Das bedeutet für LOAD, MERGE und VERIFY: iD A,2; für SAVE: 
LD A,4. Dann endlich kann OPENCH aufgerufen werden. Als Ergebnis erhalten wir im 
IX-Register die Position des Kanals. Da wir diese Position für den Aufruf von 
SAVECH und CLOSCH benötigen PUSHen wir IX. 


SAVECH: 


Auch or SAVECH müssen einige Dinge beachtet werden bevor man die Routine 
sufruft: 


m 


Zuerst einmal wird ein Header, der mit einem Header auf Kassette identisch ist 
in den Workspace kopiert. (wie dieser Header aufgebaut ist findet Ihr in RU 8/90) 
Die Kopie in den Workspace erfolgt genauso wie oben erklärt. Dabei muß man aber 
beachten, daß die Bytes 2-11 (=Name der Programms) leer bleiben, Außerdem müssen 
bei LOAD, MERGE und VERIFY 34 Bytes in den Workspace, Die ersten 17 Bytes sind 
dabei unser Header. Die restlichen 17 Bytes bleiben leer (dorthin kopiert die 
SAVECH-Routine später den Header, der auf Diskette gefunden wurde; dann 
vergleicht diese Routine beide Header). Nach HL laden wir anschliessend die 
Anfangsadresse unserer Daten (z.B. bei einem Screen: LD HL,16384), Jetzt 
besorgen wir uns mit POP IX das IX-Register wieder (IX sollte anschliessend 
direkt wieder gePUSHt werden, da wir es für CLOSCH nocheinmal brauchen), Als 
Letztes kommt im das A-Register ein Kommandobyte (O=SAVE, 1=LOAD, 2=VERIFY, 
3=MERGE)., Jetzt kann die SAVECH-Routine aufgerufen werden, 


CLOSCH: 


Als letztes muß unser Kanal wieder geschlossen werden. Das ist ganz einfach: 
Mit POP IX besorgen wir uns wieder den Kanalanfang, Danach kann schon CLOSCH 
aufgerufen werden. 


Um Jetzt atle Klarheiten zu beseitigen, 1st hier noch ein Beispielproeramm, das 
einen SCREEN$ unter dem Namen "screen" von der Diskette lädt (dieses Programm 
einfach an Programm 1 aus RU 12/90 anhängen). 


Programm 3: 
RST 16 RST 16 
DEFW 5808 ; löscht den Workspace DEFW 5808 ; Workspace löschen 
LD BC,pare-para ; Länge P-Block LD BC,34 ; Headerlänge 
RST 16 RST 16 
DEFW 48 ; Raum im Workspace DEFW 48 
PUSH DE PUSH DE ; Anf.adr. Workspace 
PUSH BC LD HL,header 
LD HL,para LDIR ; Daten in Workspace 
LDIR ; Block in Workspace POP DE 
POP BC ; Länge Parameterblock LD HL,16384 ; Besinn der Daten 
POP DE ; Adresse Parameterblock LD A,1 ; 1=LOAD 
LD A,O ; ohne Bedeutung PUSH IX 
RST 16 CALL SAVECH 
DEFW 10934 ; A, DE, BC auf Stapel POP IX 
LD BC,0O ; Kanallänge unbekannt CALL CLOSCH 
PUSH BC LD SP, (23613) ; der Stackrointer 
RST 16 DEC SP ; wird korrigiert 
DEFW 11563 ; BC auch auf Stapel DEC SP 
POP HL ; BC nach HL JP 5960 ; Opus aus und RET 
LD A,2 ; = Kansleingabe para DEFB "m" 
CALL OPENCH DEFB 1 
DEFM "screen - 
(weiter im Programm rechts oben ->) pare NOP 


header DEFB 3 
DEFS 10 ; 10 freie Bytes 
DEFW O ; O=Länge unbekannt 
DEFW O ; O=Startadresse unbek. 


So, das war es mal wieder für heute, bis bald 
Rüdiger Döring, Meisenstraße 10, 5467 Vettelschoß, Tel. 02645/3060 


Hallo Musik-Freunde! 


Die ständisen Anfragen nach 128er-Musikstücken (u.a von Rüdiger Döring in RU 
11/90) haben mich dazu inspiriert, einmal etwas zu dieser Problematik zu 
schreiben, Selbstverständlich oibt es noch mehr Leute, die den wertvollen 
Soundchip auch benutzen, Dieser Beitrag ist für alle gedacht, die selber einmal 
Musik auf dem 128er programmieren wollen. Für die 48er-User ist es sicher 
interessant zu erfahren, daß der 128er außer seinem srößeren Speicher noch 
andere Vorteile hat. Vielleicht könnte man auf diesem Wege zu einem 
Musik-Programmierwettstreit aufrufen? 

Zur vollwertigen Musikerzeugung waren die 128er-Voreänger eigentlich kaum 
geeisnet. Der ZX 81 war von Natur aus stumm und der 48er-Standart-Spectrum war 
mehr zum Morsen geeignet als zum Musizieren, Trotzdem gab und sibt es findige 
Programmierer, die mttels (softwaremäßioer) Modulationen erstaunliche 
Soundeffekte produzieren, selbst vor Sampline (Einlesen natürlicher Kiänge oder 
Geräusche über die EAR-Buchse und deren Abspeichernung und Wiedergabe) wird da 
nicht zurückgeschreckt., 

Mit dem 128er hat man nun die akustische Schwachstelle beseitigt und einen 
Soundchip vom Typ AY-3-8912-A von General Instruments (im folgenden PSG 
"Programmierbarer Soundgenerator" genannt) eingebaut. Und nicht nur das, man hat 
auch gleich unter Einsparung der User-Grafikzeichen I und "U" den 
BASIC-Befehlsvorrat entsprechend erweitert und das leistungsfähige Kommando 
"PLAY" implementiert, so daß man in Basic komplette Musikstücke schreiben und 
dabei alle Funktionen des PSG programmieren kann (das ist bei vielen anderen 
BASIC-Computern z,B, C-64 nur mit hunderten von POKEs möglich). 

Im folgenden möchte ich nun auf die Musikprogrammierung des PSG im 
128er-BASIC, die MIDI-Möglichkeiten des 128er, die einzelnen Register des PSG 
und die direkte Programmierung des PSG in MC eingehen, 


Zunächst aber zur BASIC-Prosrammierung: Der PSG kann Töne und Rauschen auf 3 
unabhängigen Kanälen erzeusen. Dabei kann für Jeden Kanal die Lautstärke 
getrennt programmiert werden, Weiterhin ist ein einfacher Hüllkurvengenerastor 
vorhanden, mit dem man den Lautstärkeverlauf von einem oder mehreren Kanälen 
steuern kann (An- und Abschwellen des Tons oder Geräusches). Die Hüllkurvenform 
und die An- bzw, Abschwellzeit ist ebenfalls programierbar. 

Das Erzeugen von Musik im 128er ist im Prinzip ganz einfach. Voraussetzung ist 
allerdings eine gewisse Notenkenntnis., Man schreibt dann die zu spielenden Noten 
in einen String und "spielt" den String mit dem Befehl PLAY ab: 


z.B. LET a$="cde": LET b$="efg"”; LET c$="O3cde": PLAY a$,b$,c$ 
Bei kurzen Strings kann man auch vereinfachen; 
z.B. PLAY "cde’,"efg","O3scde" 


Das Prinzip ist immer das gleiche, nur der Inhalt der Strings wird 
logischerweise unterschiedlich sein, Es müssen nicht unbedingt alle 3 Kanäle 
verwendet werden, der PLAY-Befeh] spielt auch 1 oder 2 Stimmen. Im PLAY-Befenh] 
können sogar bis zu 8 Strines enthalten sein, aber dazu später mehr 
Informationen. 

Nun zum Inhalt der Strings: Es existieren eine Reihe von Subkommandos in Form 
von Buchstaben und Zahlen, die später vom PLAY-Befehl für den PSG entsprechend 
aufbereitet werden. Die wichtigsten sind dabei die Buchstaben a-g und A-G sowie 
die Zahlen 1-12. Damit lassen sich bereits alle Noten programmieren. Die 
Buchstaben haben im einzelnen folgende Bedeutung: 


c,d,e,f,9,8,b --> entsprechen der Tonleiter c,d,e,f,9,8,h 
C,D,E,F,6,A,B --> entsprechen der Tonleiter der darüberiiegenden Oktave (auf dem 
Keyboard rechts daneben) 


Beachte die Umschreibung b für den Ton h bzw. B für H! 
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Werden nur diese Buchstaben im String verwendet, so spielt der PLAY-Befen] 
Viertel-Noten im Bereich von ci bis h2, Das ist genau der Bereich, der auf der 
Melodie-Notenzeile dargestellt wird und normalerweise für die Melodiestimme (n) 
benutzt wird. 

Nur Viertelnoten klingen etwas langweilig, deshalb nehme ich nun die oben 
erwähnten Zahlen zu Hilfe, Diese bestimmen nämlich die Tonlänge: 


1-> Sechzehntel 5-> Vierte) 9=-> Ganze 

2-> verlängerte Sechzehntel 6-> verlänserte Vierte] 10-> Sechzehntel-Triole 
3-> Achte] 7-> Halbe 11-> Achtel-Triole 

4-> verlängerte Achte] 8-> verlängerte Halbe 12-> Viertel-Triole 


Kurze Erkläruns für die Nichtmusikalischen: Die Zahlen bestimmen die Zeitdauer. 
Es gilt: 2 Halbe = 1 Ganze, 2 Viertel = I Halbe, usw., die verlängerten Noten 
(auf dem Notenblatt mit Punkt dargestellt) haben die 1,5-fache Zeitdauer, z.B. 1 
Vierte] + 1 Achte] = 1 verlängerte Viertel = 53 Achte] (simple Bruchrechnune) . 
Bei einer Triole werden 3 verkürzte Noten in der sleichen Zeit gespielt, die 
sonst für 2 Noten erforderlich ist, z.B. werden bei I Achtel-Triole 3 statt 2 
Achtelnoten in der @leichen Zeit gespielt. 

Um nun eine bestimmte Note zu spielen, wird vor den Notenbuchstaben einfach 
die entsprechende Zahl geschrieben (z.B. spielt "3d" eine Achtelnote d). Diese 
Zahl 9i1t dann für alle folgenden Noten bis durch eine andere Zahl ein neuer 
Wert eingestellt wird, Bei Triolen (10-12) gilt der Wert nur für die nächsten 3 
Noten, danach ist die vorherige Einstelluns wieder wirksam. Nach einer 
Notenlängen-Zah] muß aber in Jedem Fall ein Notenbuchstabe folgen, 

Es ist auch möglich, andere Zeiten als die mit den Zahlen 1-9 vorgegebenen 
einzustellen. Dazu können die Zahlen mit Hilfe des Unterstriches "_" verbunden 
werden, z.B. eine Notenlänge von 5 Sechzehntel ist eine Kopplung von 1 Viertel 
und I Sechzehntel, also wird 5_1 vor den Notenbuchstaben geschrieben, Der zweite 
Wert ist dann die Grundeinstellune für die folgenden Noten. 

Ein weiteres wichtiges Zeichen ist das Und-Symbol "&", Dieses Zeichen kann 
anstelle eines Notenbuchstaben stehen und ersetzt die Note durch eine 
sleichlange Pause. Während dieser Zeit wird kein Ton erzeust. Die Zeitdauer kann 
wie bei einer Note durch eine vorangestellte Zahl (1-12) bestimmt werden, 

Außer den ganzen Tönen der C-Dur-Tonleiter gibt es auch noch Halbtöne (für 
Nichtmusikalische:; die schwarzen Tasten auf dem Klavier). Um solche Noten Zu 
spielen muß, abhänsis davon, ob der darüber- oder darunterliegende Halbton 
gespielt werden soll, vor dem Notenbuchstaben ein Doppeikreuz "#" oder ein 
Dollarzeichen "$" stehen, Wird z,B. #9 geschrieben, so wird ein gis (Halbton 
über 9) gespielt, schreibt man $9, so ertönt ein ges (Halbton unter 9). 

Wie oben beschrieben, lassen sich die Notenbuchstaben ideal zur Programmierung 
einer Melodiestimme verwenden. Wie kann man nun eine Baßstimme oder noch höhere 
Notenwerte erzeugen? Dazu oibt es den Kommandobuchstaben "0", Damit 188t sich 
die Oktave, in der die Notenbuchstaben erklingen, verschieben, Nach dem "0" muß 
dann die Oktavnummer im Bereich von O bis 8 angegeben werden, Es gilt folgende 
Oktav-Zuordnung: 


Oktavnummer Notenbereich c-b Notenbereich C-B Freauenz (Hz) 
00 C3 - H3 C2 - H2 8.176 - 30.87 
01 Cc2 - H2 CI - HM 16,35 - 61,74 
02 CI - MH CE -H 32.70 - 123,5 
03 CH ce-h 65,41 - 246,9 
04 ce -h ci - hi 130,8 - 493,9 
05 ci - ni c2 - h2 261.6 - 987,8 
06 c2 - n2 c3 - h3 523.3 - 1975,5 
07 c3 - h3 c4 - h4 1046.5 - 3951 .1 
08 c4 - h4 c5 - h5 2093.0 - 7902.1 


Dass muß fürs Erste genüsen, Im nächsten Teil geht es dann um weitere 
String-Kommandos, Tschüß bis zum nächsten mal 


Scott-Falk Hühn, Erich-Heyl-Str. 4, Sömmerda / Thüringen, 0-5230 
Te1.,(0): 00626 22467 / Tel.,(W) : 0037 626 22467 


7 


Liebe Specci-Freumde ! 
rd 


.D m. £LXx = 

ne Resister r indirekt aus der indiziert adressierten Speicherzelle 
+ » 

Der Inhalt der Speicherzelle, die durch das Register IX plus dem gegebenen 

Offset adressiert wird, wird in das Register r geladen. 

Beispiel: LD E, (IX + 5) 


.D #97, &IvYr gg) 

N a Resister r indirekt aus der indiziert adressierten Speicherzelle 
+ R 

Der Inhalt der Speicherzelle, die durch das Resister IY plus dem gegebenen 

Offset adressiert wird, wird in das Register r geladen. 

Beispiel: LDA,(IY + 2) 


L.D (IX + dd) 

are die indiziert dhksstents Speicherzelile (IX + d) mit den unmittelbaren 
aten n. 

Der Inhalt der Speicherzelle, die unmittelbar auf den Op-Code folet, wird in die 
Speicherzelle geladen, die durch das Resister IX plus dem gegebenen Offset 
adressiert wird, 

Beispiel: LD (IX + 4),FF 


LD cIY + d),n 

an die indiziert adressierte Speicherzelle (IY + d) mit den unmittelbaren 
aten n. 

Der Inhalt der Speicherzelle, die unmittelbar auf den Op-Code folst, wird in die 
Speicherzelle geladen, die durch das Resister IY plus dem gegebenen Offset 
adressiert wird. 

Beispiel: LD (IY + 3),BA 


.D IX = 3),.m 

Lade die indiziert adressierte Speicherzelle (IX + d) aus dem Reeister r. 

Der Inhalt des angegebenen Resisters wird in die Speicherzelle veladen, die 
durch das Register IX plus dem gegebenen Offset adressiert wird. 

Beispiel: LD (IX + 1),C 


1. SEE ee SD, nr 

Lade die indiziert adressierte Speicherzelle (IY + d) aus dem Register r, 

Der Inhalt des angegebenen Resisters wird in die Speicherzelle geladen, die 
durch das Resister IY plus dem gegebenen Offset adressiert wird, 

Beispiel: LD (IY + 3),A 


LD A, cnn?D 

Lade den Akkumulator aus der Speicherstelle nn. 

Der Inhalt der Speicherzelle, die durch den Inhalt der beiden Bytes nach dem Op- 
Code adressiert wird, wird in den Akkumulator geladen, Das untere Byte der 
Adresse folgt unmittelbar auf den OPp-Code, 

Beispiel: LD A, (3301) 


LD cnmmD)D ,AÄA 

Lade die direkt adressierte Speicherstelle (nn) aus dem Akkumulator, 

Der Inhalt der Speicherzelle, die durch den Inhalt der beiden Bytes nach dem Op- 
Code adressiert wird, wird aus dem Akkumulator seladen. Das untere Byte der 
Adresse folot unmittelbar auf den Op-Code, 

Beispiel: LD (0321),A 


.D _cmnNd „dag 

Lade die durch nn adressierten Spicherstellen aus dem Registerpasar dd. 

Die untere Hälfte des angegebenen Registerpsares wird in die Speicherzelle 
geladen, die durch die Speicherstellen adressiert ist, die unmittelbar auf den 
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Op-Code folgen, Die obere Hälfte wird aus der Speicnerzelle daninter seladen, 
Die untere Hälfte der Adresse nn erscheint unmittelbar hinter dem OP-code, 
Beispiel: LD (0408) ,8C 


L.D cmmD).MHl 

Lade die durch nn adressierten Speicherstellen aus dem Register HL, 

Der Inhalt des Registers L wird in die Speicherzelie geladen, die durch die 
Speicherstellen adressiert ist, die unmittelbar auf den OPp-Code folgen. Das 
Register H wird aus der Speicherzelle dahinter geladen. Die untere Hälfte der 
Adresse nn erscheint unmittelbar hinter dem Op-Code. 

Beispiel: LD (4089) ,HL 


DD _ ENITE a 3% 

Lade die durch nn adressierten Speicherstellen aus dem Register IX. 

Die untere Hälfte des Register IX wird in die Speicherzelle geladen, die durch 
die Speicherstellen adressiert ist, die unmittelbar auf den Op-Code folgen, Die 
obere Hälfte wird aus der Speicherzelle dahinter geladen. Die untere Hälfte der 
Adresse nn erscheint unmittelbar hinter dem Op-Code. 

Beispiel: LD (0128),IX 


DO [13.3 £5%T 

Lade die durch nn adressierten Speicherstellen aus dem Register IY. 

Die untere Hälfte des Register IY wird in die Speicherzeile seladen, die durch 
die Speicherstellen adressiert ist, die unmittelbar auf den Op-Code folgen. Die 
obere Hälfte wird aus der Speicherzelle dahinter geladen. Die untere Hälfte der 
Adresse nn erscheint unmittelbar hinter dem Op-Code, 

Beispiel: LD (BDO4),IY 


L.D A, cBC) 

Lade den Akkumulator aus der durch das Registerpaar BC indirekt adressierten 
Speicherstelle. 

Der Inhalt der Speicherzelle, die durch den Inhalt des Reotsterpaares BC 
adressiert wird, wird in den Akkumulator seladen. 

Beispiel: LD A, (8C) 


LD A, cDE) 

Lade den Akkumulator aus der durch das Resisterpaar DE indirekt adressierten 
Speicherstelle. 

Der Inhalt der Speicherzelle, die durch den Inhalt des Registerpaares DE 
adressiert wird, wird in den Akkumulator geladen, 

Beispiel: LD A, (DE) 


LD A,I 

Lade den Akkumulator aus dem Interruptvektor-Register I, 

Der Inhalt des Interruptvektor-Registers I wird in den Akkumulator geladen, 
Beispiel: LD A,I 


LD I,A 

Lade das Interrupt-Register I aus dem Akkumulator, 

Der Inhalt des Akkumulators wird in das Interruptvektor-Resister I geladen. 
Beispiel: LD I,A 


L.D A,R 

Lade den Akkumulator aus dem Memory-Refresh-Resister R, 

Der Inhalt des Memory-Refresh-Resisters wird in den Akkumulator yeladen, 
Beispiel: LD A,R 


LD HL, nm) 

Lade das Register HL aus der Spicherzelle nn. 

Der Inhalt der Speicherzelle, die durch die Speicherstellen adressiert ist, die 
unmittelbar auf den Op-Code folsen, wird ins Register L geladen, Das Register H 
wird aus der Speicherstelle dahinter geladen. Die untere Hälfte der Adresse nn 
erscheint unmittelbar hinter dem Op-Code. 

Beispiel: LD HL, (0024) 


g 


.D Z%, HA 

Lade das Resister IX mit den unmittelbaren Daten nn. 

Der Inhalt der Speicherzellen, die unmittelbar auf den Op-Code folgen, wird in 
ee IX geladen. Das untere Byte erscheint unmittelbr hinter dem 
p-Code. 

Beispiel: LD IX,BOB! 


ı.D I%; cmmD 

Lade das Resister IX aus der Speicherzelle nn. 

Der Inhalt der Speicherzelle, die durch die Speicherstelien adressiert ist, die 
unmittelbar auf den Op-Code folgen, wird in die untere Hälfte des Registers IX 
geladen. Die obere Hälfte wird aus der Speicherzelie dahinter geladen. Die 
untere Hälfte der Adresse nn erscheint unmittelbar hinter dem Op-Code, 

Beispiel: LD IX, (010B) 


ED Vi. Mi 

Lade das Resister IY mit den unmittelbaren Daten nn. 

Der Inhalt der Speicherzellen, die unmittelbar auf den Op-Code folgen, wird in 

Es IY seladen. Das untere Byte erscheint unmittelbr hinter dem 
p-Code, 

Beispiel: LD IY,21 


ED _2%Y,. mm? 

Lade das Register IY aus der Speicherzelle nn, 

Der Inhalt der Speicherzelile, die durch die Speicherstellen adressiert ist, die 
unmittelbar auf den Op-Code folgen, wird in die untere Hälfte des Registers IY 
geladen, Die obere Hälfte wird aus der Speicherzelle dahinter geladen. Die 
untere Hälfte der Adresse nn erscheint unmittelbar hinter dem Op-Code, 

Beispiel: LD IY, (5000) 


Das war's, Bis zur Ausgabe Nr, 8 viel Spaß 
Harald R, Lack, Heidenauer Str. 5, 8201 Raubling 


Pascal auf dem Spectrum 
Einführunsskurs by Lord Luxor 


Zuerst einmal die Story, wie ich zu PASCAL auf dem Speccy kam. Meine ersten 
Schritte in PASCAL tat ich auf einem XT mit TurboPascal. Schon bald war ich 
begeistert von PASCAL, wegen der Vielfalt der Befehle und der Einfachheit. 
Dummerweise besitze ich keinen PC und auf meinem Amiga (den ich damals eh noch 
nicht hatte) gibt es kein gescheites PASCAL. So kam ich an Hisoft Pascal. Mit 
diesem arbeite ich auch sehr gerne, auch wenn es einige Nachteile hat, 
In diesem Kurzeinweisungs-Kurs beziehe ich mich stets auf Hisoft Pascal 4TM1.6, 
ich kenne nicht genau die Unterschiede, man (und Frau) möge mir das nachsehen. 
Ich möchte auch gleich die Chance nutzen und fragen, ob sich Jemand die Mühe 
gemacht hat und dieses Pascal auf Beta-Disk umgeschrieben hat. Daran wäre ich 
doch sehr interessiert. Ich gehe mal davon aus, daß einige User auf irgendeiner 
staubigen Kassette, Diskette oder Cartridse Pascal besitzen. Ich erspare mir die 
Ladezeremonie, das müßt ihr selbst rausfinden, 
Sofern es keinen Ladefehler gab, erscheint auf dem Bildschirm die Frage "Top of 
RAM?" - nicht beachten, ein freudig, kraftvolles ENTER, genauso wie bei "Top of 
RAM for T?" und "Table Size?", Nun erscheint "Copyrioht Hisoft 1983,84 81] 
rights reserved" (was schon so alt?!) und ein Prompt ">" mit einem blinkenden C- 
Cursor, Was nun? Versuchen wir es einmal mit PRINT "HALLO", Wie ein wohl- 
ALS et: Franzose sagt unser Speccy "Pardon?", was auf Umoanssdeutsch "Häh?" 
e ; 
Was war falsch? Zwei Dinge: 1, gibt es in Pascal nicht den PRINT-Befeh] und 2. 
befinden wir uns im sogenannten Befehlsmodus, der keine Pascal-Befehle kennt, 
Bin EBNDnr wenn PRINT ein Pascal-Befehi wäre hätte unser Speccy ihn nicht 
verstanden, 
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Wie können wir Jetzt aber Pascal-Befehle eingeben? Dazu müssen wir erstmal in 
den sogenannten Editor. Dies geschieht mit I -ENTER- (I für Insert), Machen wir 
das mal (ich rede immer "wir", weil ich vor dem Spreccy sitze und alles mit- 
mache). Nun steht da eine 10 und dahinter der Cursor. Das ist der Editor und wir 
befinden uns in Zeile 10. Halt, bevor Jemand besinnt wild Befehle einzugeben, 
der Editor überprüft den Syntax der Befehle nicht. 

DEREN wir mit einem Super-Programm, das Hallo auf den Bildschirm schreiben 
ann, 

Bei Pascal muß in der ersten Zeile immer der Programmname definiert werden. Das 
seschieht mit PROGRAM -Name-;., Wichtig ist das ;, damit bekommt der Compiler 
später das Zeichen Ende dieses Befehls, Wir beenden die Zeile mit ENTER. 

wir haben schon den wichtiesten Befehl gelernt, denn ohne den 1äuft nichts, bzw. 
beim Compilieren gibt es eine Latte von Fehlermeldungen, 

Bevor das eigentliche Programm besinnt muß man den Compiler darauf aufmerksam 
machen, mit dem Befehl BEGIN;. Dieser zeigt dem Compiler den Beginn einer 
Prozedur, Funktion, Schleife oder ähnlichem, ENTER! 

In BASIC lernt man zuerst meist den PRINT-Befehl kennen, in Pascal müßte es Je 
auch so etwas geben, klar, es heißt hier einfach WRITELN('-Text-'); und 

unterscheidet sich etwas vom PRINT-Befehi, aber davon später. ENTER! 

Beenden wir dieses Programm mit END. Wichtige ist hier der Punkt. Der siona- 
lisiert das Ende des Programms, denn END kann auch für das Ende einer Prozedur 
etc, stehen, 

Verlassen wir nun den Editor mit CAPSSHIFT - 1. 

Jetzt haben wir die Wahl, 0b wir das Proeramm abspeichern oder comrilieren 
lassen wollen. Alte Speccyuser-Rege]l : Erst saven, dann pfuschen! 

Der Befehl (wir sind wieder im Befehlsmodus, also kein Pascal-Befeh]) lautet: P 
Anfangszeile,Endzeile,Name 

Bei unserem Programm würde das so aussehen: P 10,40,Hallo. 

Eine kleine Warnung für 4TM1.6 user, nach dem Befehl nicht gleich ENTER drücken, 
da diese Pascal-Version nicht wartet, sondern den Befehl sofort ausführt. Beim 
Saven werden einige feststellen, daß Pascal ein eigenes Kassettenformat benutzt. 
Ist alles fehlerlos abgesavt compilieren wir unser erstes Programm mit dem 
Befenl C Anfangszeile, gibt man keine Anfangszeile an, so compiliert unser 
Speccy ab der ersten Zeile, also geben wir nur C ein. Es erscheint unser 
Programm, links davon einige merkwürdige Zeichen, Assemblerfreks werden sie 
vertraut vorkommen, Unter unserem Listing erscheint die Melduns "End Adress 
AD87" (Jedenfalls bei mir), damit ist klar, daß diese Zeichen die Adressen sind, 
in denen der Jeweilige Befehl compiliert abgelegt wurde. 

Nun frast unser Speccy "Run?", was wir mit Y beantworten und wenn ihr keinen 
Fehler gemacht habt, seht ihr wie ich ein Hallo auf dem Bildschirm, toll was? 

Unser erstes Programm hat funktioniert! Na, das war Jetzt alles sehr einfach und 
primitiv, im nächsten Heft wird alles komplizierter. 


Eine kleine Zusammenfassung dessen, was wir heute gelernt haben: 


springt in den Editor. a=Anfangszeile, b=Schrittgröße der Zeilennr. 


I 8,b 
P a,b,name speichert Quellcode (Programmtext) von Zeile a bis Zeile b unter dem 
Name name aufs Band 
ca Compiliert Quellcode ab Zeile a 
PROGRAM -name-; Definiert Name des Programms im Editor, immer in der 1. Zeile 
vereinbaren! 
BEGIN; Definiert Blockbesinn einer Prozedur, Funktion oder sonstigen 


Programmteilen 
WRITELN('-Text-'); wie in BASIC PRINT 
END (;) Ende einer Prozedur, Funktion oder Schleife 
END, Ende des Programms, immer letzte Zeile! 


So, im nächsten Teil weniser Text, mehr Befehle, Ich hoffe, einige User werden 
ihr Pascal entstauben, Bei Fragen könnt ihr euch an mich wenden: 


LORD LUXOR, PLK 185207 E, 6900 Heidelbero 
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Hallo Freaks. 

Heute ein kleines Sortierprogrämmchen., Häufig kommt es vor, daß man eine Liste 
von irgendwas erstellen möchte, Zum Bleistift eine Namensliste. Will man diese 
schön geordnet haben, muß man vor der Erstellung das Ganze vorsortieren. 
Folgendes Programm erspart dieses vorsortieren, Das Programm zeichnet sich durch 
das Fehlen Jeslichen Komforts aus. Es unterscheidet weder Groß-/Kleinschreibung 
noch Zahlen und es sortiert nur nach dem ersten Buchstaben. Also genau das 
richtige für einfache Listen, Nach Start des Programmes bei der Frage Name ? das 
gewünschte eingeben und Enter, Zum sortieren STOP (Symbolshift + A) drücken und 
Enter, Keine Ansst, wenn nun im Screen was passiert, Der Screen wird als 
Zwischenspeicher benutzt. Da das Sortieren in Maschinensprache ausgeführt wird, 
dauert es nicht lange, Anschließend kann man sich die sortierte Liste auf dem 
Screen anschauen oder abspeichern, Abgespeichert wird das Ganze als CODE-File, 
welchen man in's Tasword 2 oder Lastword laden kann, Hier muß der File Jedoch 
noch "verschönert" werden. Dies bleibt aber Jedem selbst überlassen, 

Noch ein Hinweis: da das * als Eintragsendemerker für das MC-Programm dient, 
darf es nicht Bestandteil eines Eintrages sein! 

Auch darf die Summe der Einträge nicht größer als 6912 Zeichen sein. Hier 
erinnert das Programm aber bei Überschreitung den Benutzer daran, 


" Lan 


1 CLEAR 31999 

2 LET poke=32000 

3 CLS: PRINT "MOMENT BITTE": GO SUB 8000: CLS 

O PRINT " SORTIERPROGRAMM Dieses Programm sortiert Daten (kei 
ne Zahlen) und erzeugt einenTasword II File." 

11 PRINT "Es sortiert nur den 1,! Buchsta=ben. Die Eingabe kann in Klein- oder 
Grossschreibung erfolgen." 

12 PRINT "Der 1. Buchstabe wird autom. um=gewandelt in gross," 

13 PRINT "Das Programm ist zum erstmaligenAnlegen einer Datei (z.B. Pro= gram 
mliste)im Tasword Format ge=dacht.” 

14 PRINT "Eine hiermit erstelite Liste muss Jedoch noch mit Tasword "ver 
schoenert" werden," 

15 PRINT "Dazu laedt man die sortierte Li=ste ins Tasword, faehrt mit dem Curs 
or hinter die entsprechende Stelle und drueckt Symbolshift +Y" 

16 PRINT "Damit wird der Rest der Zeile an den Beginn der naechsten Zei=le 9 
eschaufelt. Zugegeben, noch nicht ganz der wahre Jakob, aberimmer noch bess 
er(und schneller)als das zu Fuss sortierte Einge=ben in Tasword!" 

20 PRINT #0; "PRESS KEY TO BEGIN": PAUSE O: CLS 

100 REM schreiben 

105 LET a$="" 

110 INPUT "Name : ";a 

111 IF a$=" STOP " AHEN POKE poke,226: POKE poke+1,226: POKE poke+?2,226: RANDOM 
IZE poke-32000: GO TO 500 

115 IF poke>=38912 THEN PRINT " DATEI VOLL “ı STOP 

120 LET a$=a$+" * " 

121 LET b=CODE a$(t): IF b>96 THEN LET b=b-32: LET a$(1)=CHR$ b 

129 PRINT AT 20,0;8$: RANDOMIZE USR 3280 

130 FOR n=1 TO LEN a$: POKE poke,CODE an): LET poke=poke+1: NEXT n 

140 a 100 


501 PRINT AT 10, sortiere, Dazu benutze ich als Zwischenspeicher den SC 
REEN$ "; PAUSE 

510 RANDOMIZE USR 23300 

511 POKE 23658,0 

520 CLS: PRINT " FERTIG Willst du das sortierte 
L)esen S)peichern ?" 

550 IF INKEY$="1" THEN GOTO 9100 

551 IF INKEY$="s" THEN GOTO 9000 

555 GO TO 550 


8001 DATA 237,75,118,92,197,62,65, 245,1 241,245,190,40,44,55,11,1 


7,0,64,55,0,125, 
20,177,40,16,62,226,190,40,11,62,42,190,52, 240,55,55,11,11,24,229,241,193,1 
97 ,60,245,254,91,40,2,24,215,241,193,33,0,64,17,0,125 
8002 DATA 237,176,201,126,54,32,18,55,19,11,62,42,190,32,244,18,35,19,11,126,18, 


35,19,11,126,254,226,40,208,24,179 
8010 RESTORE 8000 
8020 FOR n=23300 TO 23390: READ z: POKE n,z: NEXT n: RETURN 
9000 REM saven 
9001 LET la=poke-32000: PRINT "M)icrodrive C)lassette" 
9002 IF INKEY$="m" THEN GO TO 9030 
9003 IF INKEY$="c" THEN GO TO 9020 
9005 GO TO 9002 
9020 SAVE "Pp"CODE 32000, 1a: STOP 
9030 SAVE *"m" 1; "p"CODE 32000, 18: STOP 
9100 REM orine, 
9110 FOR n=32000 TO poke 
9120 PRINT CHR$ PEEK n;: NEXT n 
9130 re #0;"PRESS KEY": PAUSE DO: GO TO 520 


TOP 
9200 tl AT 10,0: FOR n=16384 TO 18000: PRINT CHRS PEEK n;: NEXT n 


9998 SAVE "sort" LINE 1 
9999 SAVE *"m";1;"Tassort" 


Also sortiert mal schön. .,...Paule Panther 
Paul Webranitz, Boroasse 16, 5561 Kinheim, Tel. 06532/2607 


Dieter Hucke, Korbacherstraße 241, 3500 Kasse] 


OPUS INTERN (1) 


An dieser Stelle möchte ich mit einer Serie über das Innenleben der OPUS 
besinnen, 

Wir werden bei der Stromversorgung anfangen, und bei den einzelnen Signalen auf 
dem Bus aufhören, Meistens wird es eine EINLEITUNG geben, die für den überblick 
reichen sollte. Der zweite Teil, EINGEMACHTES, geht an ebendasselbe, natürlich 
nur, yo ich es selbst kapiert habe, Ich hab nämlich manches absolut noch nicht 
kapiert. 

Manchmal wird Software auftauchen, Das ist logisch, denn die OPUS läuft nun mal 
mit Software. Aber genauere Beschreibungen bitte ich sus Rüdiger Dörings OPUS- 
Kurs zu nehmen, denn da steht sehr viel drin! So, senus der Vorrede.,.. 


Die Stromversoraunga : 


Einleitung : 

Die OPUS hat ein eigenes Netzteil (Trafo, GleichRiechtEr, Spannungsstabilisa- 
bs Fe dem sie die Laufwerke, den Spektrum und sich selbst mit Strom 
versorgt. 

Es werden 12 V stabil, 5 Volt stabil und 9 V unstabil erzeuet. Die 9 Volt gehen 
an den Spektrum, der daraus seine eigenen Spannungen erzeust, die 12 Volt an die 
Laufwerke, und die 5 Volt an die Laufwerke und die OPUS-Elektronik. 


Eingemachtes ; 

Es gibt meines Wissens zwei 9rundlegende Versionen der Stabilisierung; einmal 
die Verwendung von Festspannunssreslern, 7812 und 7805, oder zweimal LM 317, mit 
Zenerdioden, Die Brückensleichrichter bzw Dioden sind geizig bemessen, und 
können überhitzen, ebenso die etwas dünnen Leiterbahnen im Netzteilbereich, die 
manchmal etwas "nachdunkeln", 

Die Erdung ist eindeutig gelöst; es gibt eine Gehäuseerdung, die 0 Volt sind 
nicht an Erde geführt. 


So, das wars fürs erste. Gruß, Dieter 
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The Secrets of Beta DOS Calls 
Terl 4 


Orig. von H.Broothaers, uebersetzt von B,Lutz,Tel .07272-6868 


UHHENDSHUN UND HUN HUN UN UN UHAHN RUHE UN UNNUDDUH MAN UNI DRAN UNRUHEN 


Im Nachfolgenden werden die direkten Einsprungadressen fuer die verschiedenen 
DOS Versionen angegeben. Ich moechte euch allerdings bitten, wenn ihr Programme 
schreibt, IMMER die in einer der vorhersehenden Beta-Disk Folgen beschriebenen 
Zentral- adressen zu benutzen, damit das ganze auch Jeweils bei anderen Usern 
mit einer von euch verschiedenen DOS Version richtig laeuft. Vielen Dank. 


Direkte Call Adressen fuer die versch. ROM Versionen 


Function 3,0 4,03 4.06 4,07 4,10 4,1 4,11 
4,04 4,09 4,12 

DOS ROM EIN 3CAAh 15467 15467 15467 15467 15467 15467 

DISK LESEN 5C09h 11958 11992 11958 11991 11934 11990 

DISK SCHREIB. 3COCh 11974 12008 11974 12007 11950 12027 

DOS ROM AUS 5CBEn 15484 15484 15484 15484 15484 15484 

YO LER EN SS a I 1: 

DE = D -Track, E = Sector 

HL = Buffer addresse 

BC = B=Anzahl der Sectoren, C=D 


ACHTUNG: Nicht vergessen das ROM vorher ein und spaeter wieder auszuschalten !!! 


Manche werden das Ganze fuer ein bischen lanasam halten (was ich nicht verstehe, 
Haha), also sollte folgende Routine benutzt werden um SCHNELLES Schreiben und 
Lesen zu erreichen: 


Dieses Beispiel ist, fuer Version, 5,0 

CALL 3CAAh 

Id HL,Bufferaddresse 

1d D, Start track 

1d E,Start sector 

ld a,Anzahl der Sectoren (was unterschiedlich zu oben ist), 
CALL LOADER ROUTINE 

hier kann es dann mit dem eigenen Programm weitergehen... 


LOADER ‚ROUTINE: 
LD B,I «Immer nur ein Sector) 
Id C,‚O «C is immer O0 (wie oben)) 


PUSH (stand nicht im Originalbericht) 
Call SC09h (Muss 3COCh wenn man Schreiben wi11 !!) 

POP HL (stand nicht im Originalbericht) 
INC H (stand nicht im Originalbericht) 
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POP DE 
POP BC 
INC E 
LD a 


CALL Z,u(pdate) 
AF 
decc 3a 


z,e(nd) 
Jr LOADER ROUTINE (wieder von vorne beginnen) 
e call 3CBEh (Das ist der Schluss) 


uLlD e,O 
inc d 
ret 


Die folgende Gruppe adressiert den Floppy Disk Controller Chip: 


A 


* PORT OUT IN e 
*» ıF COMMAND to command reg. STATUS from status reg, ” 
* 5F TRACK to track reg. TRACK from track reg. ® 
= SF SECTOR to sector reg. SECTOR from sector reg, ” 
* 7F DATA to data register DATA from data register e 


Folgendes steuert den BETA interface PORT: 


{Bu I Bu I Ba 1 Bu U Bu U Ba 1 Bu SU Ba 1 Bu EI Bu Ba 1 I Ba Bu 1 BU De 1 Ba U er Te 1 Bas 7 Ba SB 1 Ba Te TB TE Ta De a TE TE Te Be TE TE Eu Eu 7 


FC OUT generiert eine Unr um einige Schaltkreise im BETA Interf. zu steuern. 


F7’öÖ 
>-diese beiden waehrend OUT generieren einen Takt zum Inter face um 
FF / Informationen wie Drive Nummer/Disk Seite/ Master Reset fuer den Floppy 
Disk Controller 
-waehrend IN wird ueber sie seprueft ob ein DRQ (Data Request) oder INTRQ 
(Interrupt Request) vom FDC anliegt, 
FF wird auch noch benutzt um das Beta ROM ein- bzw. aus zuschalten. 


Hier sind noch einige der Systemvariablen des DOS: 


5Ccc8 Format von drive A 

5CC9 format von drive B 

SCCA format von drive C 

5CcCcB format von drive D 

Ssccc track von dem zu Lesen ist 

5CcCD sector von dem zu lesen ist 

SCCE 00=Lesen // FF=Schreiben 

5CD9/A Effektive LADE Addresse 

SCDB/C Effective Laenge 

SCcCcD file name (8 lang) 

5CcE5 file type B/C/D/# 

5CE6/7 LADE Addresse fuer code file/Total Laenge fuer Basic 
5CE8/9 Pam. Laenge fuer Basic/Laenge fuer code file 

SCEA file Laenge in Sectoren 

SCEB/C Sector+Track Start des Files 

SCF6 Drive Nummer 

SCF8 Drive von dem gelesen weden sol] 

SCF9 Drive auf das geschrieben wird 

5002 Kurzzeitiger Speicher f. Adresse von zu druckendem Text 
5019 Drive Nummer A=0;B=1 ;C=2;D=3 


Alle angegebenen Zahlen sind Hexadezimalzahlen !! 
Bernhard Lutz (bei Wünschel), Obermühlstr. 24, 6729 Bellheim, Tel. (07272) 6868 
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Heute folgenden weitere Screen-Manipulations-Routinen, von denen ich hoffe, daß 
mir Jemand diese in MC umschreiben kann. 


Attr-Kopieren 
LET a=22528 BIS 22544: LET b=56144: FOR y=1 TO 24: FOR x=1 TO 16: POKE b, PEEK 
8: LET a=8+1: LET b=b+1: NEXT x: LET a=a+16: NEXT y 


Attr-Vergerößern 
LET f=22528: LET d=56144: FOR I=1 TO 384: LET c=PEEK d: POKE f,c: POKE f+l,c: 
LET f=f+z: LET ded+1: NEXT 1] 


Spiegelung links/rechts 

LET x=50000: LET z=16383: FOR w=1 TO 192: FOR y=32 TO I STEP -1: POKE x,PEEK (z+ 
y)s LET x=x+1: Next y: LET z=z+32: NEXT w 

LET x=50000: LET z=16384: FOR w=1 TO 6144: LET y=PEEK x: LET t=128: LET s=0: LET 
r=1: FOR u=1 TO 8: IF y>=t THEN LET y=y-t: LET s=s+r 

LET t=t/2: LET rer*2: NEXT u: POKE z,$: LET z=z+1: LET x=x+1: NEXT w 


Spiegelung oben/unten 

FOR x=1 TO 6144: POKE 50000+x,PEEK (16383+x): NEXT x: LET y=56144: LET w=16384: 
N 10 192: LET y=y-32: FOR v=1 TO 32: POKE w,PEEK {y+v)ı LET w=w+i: NEXT v: 
N x 


Patrick Thiel, Königsberger Str. 11, 4796 Salzkotten, Tel. 05258/5197 


Verkaufe Spectrum 48k Komplett-System eingebaut in PC-Gehäuse, mit absesetzter 
PC Tastatur, Beta Disk 4.12 (m, Vision), 3,5" Laufwerk DSDD, 100 Disketten, 
Originalsoftware, neuer Grundig Datarecorder, Super Rank Xerox Netzteil, 
Kempston-E-Druckerinterface, Busverlängerune mit 2-fach Verteiler, Umschalter 
für Fernseher/Videoausgang, Phillips Grünmonitor, Doppelport-Joystickinterface 
(Kempston+Sinclair I) für 800,- DM, 
Weiterhin noch ein Ram Turbo Joystick Interface (Sinclair I+Il, Cursor, 
Kempston, ROM-Karten Anschlußmögslichkeit, durchseführter Bus) nur 30,- DM. Soft- 
wareprogrammierbares DK'tronics Joystick-Interface, durchseführter Bus: 25,- DM. 
Bernhard Lutz (bei Wünschel), Obermühlstr. 24, 6729 Bellheim, Tel, 07272/6868 


Verkaufe Spectrum Bücherkiste: ZX Spectrum Tips und Tricks (DATA Becker), ZX 

Spectrum Hardware Handbuch, ZX Spectrum Hardware (Happy Computer), Handbuch 

(deutsch), Handbuch (englisch), 3 Spielebücher (Je 160 Seiten) komplett für 50,- 

DM plus Porto. 

Für unsere 2X 81 Freaks: Alles über den 2X 81 (Bernstein, 380 Seiten, Prosramme 

und Bauanleitungen) für 20,- DM plus Porto. 

Für Alphacom Printer: 10 Rollen Thermoparpier (originalverpackt) 110 mm. Als 

Zugabe gibt es einen TIMEX Printer (Stecker defekt), Für 50,- DM plus Porto. 
Erhard Gutheim, Bussardweg 1, 3107 Hambühren, Tel. 05084/4553 


Verkaufe für den ZX-Spectrum folgende Bücher: Spaß und Profit für den Spectrum; 
Das Spectrum Buch; 60 Programme für den Spectrum; Alles über Sinclair Computer; 
Der Sinclair ZX-Spectrum; Einfache Zusatzoeräte für den Spectrum; alle Bücher 
zusammen für 30,- DM (unbenutzt!) 
Außerdem: Jede Menge Kassettenzeitschriften aus Eneland für Je 5,- DM; das 
Programm “"Fiendish Freddy's" (128 KB) für 20,- DM und massig Originale 
48KB-Spiele. 
Suche SAM-Coupe immer noch !!! 

Dieter Lederer, Mühlhofstr, 26, 8605 Hallstadt, Tel, 0951/71813 


